home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / cursor get_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  389b  |  11 lines
  1. 10 gosub1102:printa$;:goto10:rem this is the "host" program
  2. 1101 goto1109:rem get with cursor blink
  3. 1102 xl%=peek(211)
  4. 1103 ifxl%>21thenxl%=xl%-22:goto1103
  5. 1104 xl%=xl%+peek(214)*22+4096:xc=33792+xl%:ifpeek(210)>20thenxc=xc+512:xl%=xl%+3584
  6. 1105 pokexc,peek(646):xo%=peek(xl%):xt%=xo%:xq%=128:ifxo%>127thenxq%=-xq%
  7. 1106 xt%=xt%+xq%:pokexl%,xt%:xq%=-xq%:forxr=1to60:rem changing 60 changes blink speed
  8. 1107 geta$:ifa$<>""thenpokexl%,xo%:return
  9. 1108 next xr:goto1106
  10. 1109 rem
  11.